Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnRoll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRoll.Click
        Dim die1 As Integer
        Dim die2 As Integer
        Dim randGen As New Random
        die1 = randGen.Next(1, 7)
        die2 = randGen.Next(1, 7)
        txtDie1.Text = die1.ToString()
        txtDie2.Text = die2.ToString()


        Dim card As Integer
        card = randGen.Next(1, 53)
        MsgBox("Card is: " & card)
    End Sub

    Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
        Dim die1 As Integer
        Dim randGen As New Random
        Dim count As Integer
        Dim num1s As Integer
        Dim num2s As Integer
        Dim num3s As Integer
        Dim num4s As Integer
        Dim num5s As Integer
        Dim num6s As Integer
        Dim start As Integer
        Dim finish As Integer = 100
        Dim byNum As Integer = 2
        For count = start To finish * 3 Step byNum
            die1 = randGen.Next(1, 7)
            Select Case die1
                Case 1
                    num1s = num1s + 1
                Case 2
                    num2s = num2s + 1
                Case 3
                    num3s = num3s + 1
                Case 4
                    num4s = num4s + 1
                Case 5
                    num5s = num5s + 1
                Case 6
                    num6s = num6s + 1
            End Select

        Next count
        lstResults.Items.Add("Ones: " & num1s)
        lstResults.Items.Add("Twos: " & num2s)
        lstResults.Items.Add("Threes: " & num3s)
        lstResults.Items.Add("Fours: " & num4s)
        lstResults.Items.Add("Fives: " & num5s)
        lstResults.Items.Add("Sixes: " & num6s)

    End Sub
End Class